This is the revision history for sweval5.27: sub foo { my $x = shift; $x > 0 ? do { print "x in <matrix.org:#rAnyijhRxzFRfdjSHl:matrix.org>
factoid_id | subject | copula | predicate | author | namespace |
---|---|---|---|---|---|
13418 | sweval5.27: sub foo { my $x = shift; $x > 0 ? do { print "x | is | $x, decrementing|"; __SUB__->($x - 1); } : $x < 0 ? do { print "x is $x, incrementing|"; __SUB__->($x + 1); } : print "x is zero ($x)|"; } foo(-4); | gordonfish | <*:##NULL> |